COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE PLOT
C00005 ENDMK
C⊗;
	TITLE PLOT
	INTERNAL PLOT
	EXTERNAL FASTOU,FINFIL,EXIT,PUTFIL,OUTF

LX:	0
N:	BLOCK =512
PLOT:	0		;SUBROUTINE PLOT(I,J,K)
	SETO  4,		;COMMON /OUTF/JJ
	CAMN	4,OUTF		;DIMENSION N(148)
	JRST	PL4		;IF(JJ.EQ.-1)GO TO 4
	MOVNM  4,LX		;L=1
	MOVEI	4,=127		;N(1)=127
	MOVEM	4,N
	MOVE	4,[ASCIZ/" "/]		;IF(JJ.EQ.' ')JJ='PLT'
	CAME	4,OUTF
	JRST	PLB
	MOVE	4,[ASCIZ/"PLT"/]
	MOVEM	4,OUTF
PLB:	JSA	16,PUTFIL	;CALL PUTFIL(JJ)
	JUMP	OUTF
	SETOM	OUTF		;JJ=-1
PL4:	MOVE	5,@2(16)	;4	IF(K.EQ.99)GO TO 1
	CAIN	5,=99
	JRST	PL1
	AOS	7,LX		;L=L+1
	CAIL	7,=129
	JRST	[	CAIL 7,=257
			JRST TOP
			CAIE 7,=129
			JRST NOWD
		  WWD:	MOVEI 4,=127
			MOVEM 4,N-1(7)		;N(L)=127
			AOS LX
			JRST NOWD
		  TOP:	CAIL 7,=385
			JRST TOP2
		  	CAIE 7,=257
			JRST NOWD
			JRST WWD
		  TOP2:	CAIN 7,=385
			JRST WWD
			JRST NOWD]
			
NOWD:	MOVEI	7,N
	ADD	7,LX		;CALL PAC(N(L),I)[SEE MSFAI.FAI]
	HRRZ	4,2(16)
	HRR	5,@4
	LSHC	5,-10
	HRRZ	4,1(16)
	HRR	5,@4
	LSHC	5,-16
	HRRZ	4,(16)
	HRR	5,@4
	LSHC	5,-16
	MOVEM	6,-1(7)

	MOVE	7,LX
	CAIGE	7,=512	;3	IF(L.LT.512)RETURN
	JRA	16,3(16)
	JSA	16,FASTOU	;2	CALL FASTOU(N,512)
	JUMP	N
	JUMP	[=510¬t~∀∪≠=-∩∩\Xb∩∩m_zb~(∪≠∨-∃~∩nY10~∀∪)%α∩bXXfPbXR∩w%∃)+%≤4∃!_bh∪≠∨-∀∩jY→`∩∩vb%≤PbRu_~∀vl∪≠∨-∃~∩jY8~∀∪≠=-∩@PXzbd`~∀∪π¬∪→
∩TXzbd`~∀∪≠=-∩@PXzdjX~∀∪π¬∪→
@TXzdjX~∀∪≠=-∩@PXzfpP~∀∪π¬∪→
@TXzfpP~∀∪≠=-∩@PXzjbH~∀∪≠=-∩∩\Y≤∩∩m∀{≤Q0R~∀∪¬	λ∩n0j~∀∪5∨-
∩\XZbP\R~∀vl∪≠∨-∃~∩nYbPbl$~∃!_D``t∪5∨-~$nY≤ZDPjR∩m	≡@b@`A∃∀u_XjbH~∀∩∩$∩vb`@∪≤Q∃(R{∀~(∪πβ∪∀@∩jXtbdr~(∪πβ∪8∩jXzHjn~∀%∃%'(%!!→04∀∪πβ%
∩jXtfpj~(∪∃%'P@∪!!14~∃!A→0t∪5∨-
∩tbdn~(∪≠∨-∃~∪≤PTR~∀∪¬∨∀∩j4∃!!→ht∪πβ5∂
∩j0h~∀∪¬∨∃α∩TY!_b@`~∀∪)'α∩bXY
β'Q∨*∩w
β→_A→β')∨TQ≤XjDdR~∀%∃+≠ %≤~∀∪)+≠ ∩P~∀∪∃Mα∩bl1
∪≥
%_∩wπ¬→_A
%≥
∪_4∀∪'Q5~∪∨U)∩∩m∃∀z`4∀∪∃'∧∩blY∃1∪(∩$wπβ→0A1∪P~∀~∀%≥λ~(